home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
keyb
/
otto14.zip
/
GETSTOCK
< prev
next >
Wrap
Text File
|
1992-02-07
|
459b
|
25 lines
;gets a couple of stock quotes
w c "!"
"go BASICQUOTE|"
w c "Issue: "
"Φ86 " ;initiate capture (Autosig unique, change for your program)
w c "name: "
"stocks|" ;store data is "stocks" file
w 1
"FMAGX|" ;Fidelity Magellean
w c "Issue: "
"MSFT|" ;Microsoft
w c "Issue: "
"AAPL|" ;Apple Computer
w c "Issue: "
"IBM|" ;guess
w c "Issue: "
"Φ86 " ;end capture
w .5
"|"
w c "!"
end